A = (-2, 2)
B = (3, 2)
f = Segment(A, B)
g = OrthogonalLine(A, f)
h = OrthogonalLine(B, f)
C = Point(g)
i = OrthogonalLine(C, g)
D = Intersect(h, i)
q1, a, b, d, c = Polygon(A, B, D, C)
e, E, F, G, H, faceABFE, faceBDGF, faceCDGH, faceACHE, faceEFGH, arêteAE, arêteBF, arêteDG, arêteCH, arêteEF, arêteFG, arêteGH, arêteEH = Prism(q1, 4)
M = Point(arêteCH)